home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / FIGHTER.TCL < prev    next >
Encoding:
Text File  |  2002-06-03  |  8.0 KB  |  298 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   FIGHTER
  6. #
  7. #   created:    15-Jun-2000 Bernd
  8. #   
  9. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  10. #
  11.  
  12. proc fighterwatch_normal {} {
  13.  
  14.     if {[.iskilled] == "true"} {
  15.         .announcestate explode
  16.     } elseif {[.iscrashed] == "true"} {
  17.         .announcestate explode
  18.     } elseif {[.ishandcontrol] == "true"} {
  19.         .announcestate handcontrol
  20.     } elseif {[.hastarget] == "false"} {
  21.         .announcestate waitsearch
  22.     } elseif {[.hastarget] == "true"} {
  23.         .announcestate goto
  24.     }
  25. }
  26.  
  27. proc fighterwatch_handcontrol {} {
  28.  
  29.     # evtl auf normal zurueck
  30.     if {[.iskilled] == "true"} {
  31.         if {"distancechecker" == [.getreasonofdeath]} {
  32.             .announcestate distancedeath
  33.         } else {
  34.             .announcestate explode
  35.         }
  36.     } elseif {[.iscrashed] == "true"} {
  37.         .announcestate explode
  38.     } elseif {[.ishandcontrol] == "false"} {
  39.         .announcestate normal
  40.     } elseif {[.isturbomove] == "true"} {
  41.         .announcestate handcontrolturbo
  42.     }
  43. }
  44.  
  45. proc fighterwatch_handcontrolturbo {} {
  46.  
  47.     # evtl auf normal zurueck
  48.     if {[.iskilled] == "true"} {
  49.         .announcestate explode
  50.     } elseif {[.iscrashed] == "true"} {
  51.         .announcestate explode
  52.     } elseif {[.ishandcontrol] == "false"} {
  53.         .announcestate normal
  54.     } elseif {[.isstatetimeover] == "true"} {
  55.         .announcestate handcontrol
  56.     }
  57. }
  58.  
  59. # Nicht rekursiv, weil dies sich schon an einem Hindernis aufschaukeln
  60. # wuerde. Wenn Liste zu Ende zurueck. AvoidCollision nur machen, wenn
  61. # Aktion nicht gestoert wird!
  62. proc fighterwatch_avoidcollision {} {
  63.  
  64.     # evtl auf normal zurueck
  65.     if {[.iskilled] == "true"} {
  66.         .announcestate explode
  67.     } elseif {[.iscrashed] == "true"} {
  68.         .announcestate explode
  69.     } elseif {[.ishandcontrol] == "true"} {
  70.         .announcestate handcontrol
  71.     } elseif { ([.iscommandlistfinished] == "true") && ([.isfirstframe] == "false")} {
  72.         .popstate
  73.     }
  74. }
  75.  
  76. proc fighterwatch_waitsearch {} {
  77.  
  78.     if {[.iskilled] == "true"} {
  79.         .announcestate explode
  80.     } elseif {[.iscrashed] == "true"} {
  81.         .announcestate explode
  82.     } elseif {[.ishandcontrol] == "true"} {
  83.         .announcestate handcontrol
  84.     } elseif {[.hastarget] == "true"} {
  85.         .announcestate goto
  86.     } elseif {[.getavoidcollisionkind] != "nothing"} {
  87.         .pushstate
  88.         .announcestate avoidcollision
  89.     } else {
  90.     
  91.         # Zielsuche
  92.         set tgt [.searchtarget]
  93.         if {$tgt == "null"} {
  94.  
  95.             # Rueckkehr, egal ob Fuehrer oder nicht.
  96.             if {"null" != [.getgarage]} {
  97.                 .setgaragetarget
  98.                 .announcestate goto
  99.             }
  100.         } else {     
  101.  
  102.             .setvehicletarget $tgt 300 true
  103.             .announcestate goto
  104.         }
  105.     }
  106. }
  107.  
  108. # Sollte es ein lure-target sein, schalten wir in einen separaten Zustand
  109. proc fighterwatch_goto {} {
  110.  
  111.     set ttype  [lindex [.gettarget] 0]
  112.     if {"vehicle" == $ttype} {
  113.         set target [lindex [.gettarget] 1]
  114.     } else {
  115.         set target "null"
  116.     }
  117.  
  118.     if {[.iskilled] == "true"} {
  119.         .announcestate explode
  120.     } elseif {[.iscrashed] == "true"} {
  121.         .announcestate explode
  122.     } elseif {[.ishandcontrol] == "true"} {
  123.         .announcestate handcontrol
  124.     } elseif {[.getavoidcollisionkind] != "nothing"} {
  125.         # Vor Zielrelevanten Sachen machen! Wenn wir auf unsere garage 
  126.         # zufliegen, dann wird kein Ausweichen gemeldet (das weiis das avoidmodul)
  127.         .pushstate
  128.         .announcestate avoidcollision
  129.     } elseif {[.hastarget] == "false"} {
  130.         .announcestate waitsearch
  131.     } elseif {[.reachedtarget] == "true"} {
  132.     
  133.         # at garage?
  134.         if {([.getgarage] == $target) && ("null" != [.getgarage])} {
  135.             .announcestate approachgarage
  136.         }
  137.         
  138.         # break off formation, give free members my target
  139.         .givetargettomembers false
  140.     } elseif {[.isturbomove] == "true"} {
  141.         .announcestate gototurbo
  142.     }
  143. }
  144.  
  145. # Nur fliegen und zurueckschalten
  146. proc fighterwatch_gototurbo {} {
  147.  
  148.     if {[.iskilled] == "true"} {
  149.         .announcestate explode
  150.     } elseif {[.iscrashed] == "true"} {
  151.         .announcestate explode
  152.     } elseif {[.ishandcontrol] == "true"} {
  153.         .announcestate handcontrol
  154.     } elseif {[.getavoidcollisionkind] != "nothing"} {
  155.         # ??? Hier auch ???
  156.         .pushstate
  157.         .announcestate avoidcollision
  158.     } elseif {[.isturbomove] == "false"} {
  159.         .announcestate goto
  160.     }
  161. }
  162.  
  163. proc fighterwatch_explode {} {
  164.  
  165.     # Nach Animation wegnehmen
  166.     if {[.isanimfinished] == "true"} {
  167.         .setremoveable true
  168.     }
  169. }
  170.  
  171. proc fighterwatch_distancedeath {} {
  172.  
  173.     # Nach Animation wegnehmen
  174.     if {[.isanimfinished] == "true"} {
  175.         .setremoveable true
  176.     }
  177. }
  178.  
  179. proc fighterwatch_sleep {} {
  180.  
  181.     set garage [.getgarage]
  182.  
  183.     # Ziel weckt auf, sonst nix
  184.     if {[.iskilled] == "true"} {
  185.         .announcestate explode
  186.     } elseif {[.hastarget] == "true"} {
  187.         .announcestate leavegarage
  188.     } elseif {[$garage.getsleepmode] == "true"} {
  189.         .announcestate offline
  190.     } else {
  191.     
  192.         # Wir duerfen aber auch selbst welche suchen...
  193.         # Hervorlocken lassen sie sich aber nur durch Vehicle (???)
  194.         if { [.isreplenished] == "true" } {
  195.             set tgt [.searchtarget]
  196.             if {$tgt != "null"} {
  197.  
  198.                 .setvehicletarget $tgt 300 true
  199.                 .announcestate leavegarage
  200.             }
  201.         }
  202.     }
  203. }
  204.  
  205. proc fighterwatch_offline {} {
  206.  
  207.     set garage [.getgarage]
  208.  
  209.     # Ziel weckt auf, sonst nix
  210.     if {[.iskilled] == "true"} {
  211.         .announcestate explode
  212.     } elseif {[$garage.getsleepmode] == "false"} {
  213.         .announcestate sleep
  214.     }
  215. }
  216.  
  217. proc fighterwatch_leavegarage {} {
  218.  
  219.     # Wenn die Garage mit der Animation fertig ist, schaltet sie
  220.     # uns direkt nach Goto. Wir muessen nix machen. Wenn wir selbst
  221.     # auf visible reagieren wuerden, koennten wir das erst im naechsten 
  222.     # Frame und waeren so fuer einen Frame unsichtbar!
  223.     if {[.iskilled] == "true"} {
  224.         .announcestate explode
  225.     }
  226. }
  227.  
  228. proc fighterwatch_approachgarage {} {
  229.  
  230.     if {[.iskilled] == "true"} {
  231.         .announcestate explode
  232.     } elseif {[.ishandcontrol] == "true"} {
  233.         .announcestate handcontrol
  234.     } elseif {[.reachedtarget] == "true"} {
  235.         .announcestate entergarage
  236.     } 
  237. }
  238.  
  239. proc fighterwatch_entergarage {} {
  240.  
  241.     set garage [.getgarage]
  242.     
  243.     # Die Garage weiss, wann die Animation fertig ist.
  244.     # sie schaltet bei mir das insidegarage-Flag
  245.     if {[.iskilled] == "true"} {
  246.         .announcestate explode
  247.     } elseif {[.isinsidegarage] == "true"} {
  248.         if {[$garage.getsleepmode] == "true"} {
  249.             .announcestate offline
  250.         } else {
  251.             .announcestate sleep
  252.         }
  253.     }
  254. }
  255.  
  256. proc fighterwatch_cinematic {} {
  257.  
  258.     # Nach Animation wegnehmen
  259.     if {[.iscinematicfinished] == "true"} {
  260.         .announcestate normal
  261.     }
  262. }    
  263.  
  264. # ============================================================================
  265.  
  266. proc fighter_addtogarage {} {
  267.  
  268.     # in sleep mode we must be in coordinate system of garage (in order to movr
  269.     # if island moves)!
  270.     set garage [.getgarage]
  271.     if {"null" != $garage} {
  272.         $garage.addchildvehicle [psel]
  273.     } else {
  274.         puts "BUG (addtogarage): [psel] has no garage!"
  275.     }
  276. }
  277.  
  278. proc fighter_removefromgarage {} {
  279.  
  280.     # remove object from garage after output animation
  281.     set garage [.getgarage]
  282.     if {"null" != $garage} {
  283.         $garage.removechildvehicle [psel]
  284.     } else {
  285.         puts "BUG (removefromgarage): [psel] has no garage!"
  286.     }
  287.     # shall we connect the viewer to us?
  288.     if {[.getviewergrab] == "true"} {
  289.         if {$garage == [/world.getviewercarrier]} {
  290.             /world.setviewercarrier [psel]
  291.             /world.sethandcontrol [psel]
  292.         }
  293.         .setviewergrab "false"
  294.     }
  295. }
  296.  
  297.  
  298.